home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / NW41BAS.ZIP / WINUSER.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-30  |  9.7 KB  |  235 lines
  1. WinUser
  2. !Windows Based Userlist for Sever:
  3. Courier
  4. Form15
  5. Command5
  6. &ReScan
  7. Command3
  8. &Exit
  9. Command2
  10. &Print
  11. NextButton
  12. &Next Page
  13. Label2
  14. Seton Hall University - OAC
  15. Label1
  16. By: Joseph A. DiVito
  17. Line1
  18. actions
  19. &Actions
  20. rescan
  21. &ReScan
  22. print
  23. &Print
  24. nextpage
  25. &Next Page
  26. nothing
  27. &Exit
  28. about
  29. A&bout
  30. @    Form_Load
  31. Form_Click
  32. Offset
  33. Width<
  34. Height
  35.     BackColorm
  36.     ForeColor
  37. ScaleWidthD
  38. Fontsize
  39. CurrentX
  40. CurrentY
  41. Text1
  42. Frame1
  43. List1
  44. Show_Users
  45. A_TABU
  46. Form_Activate
  47. Point_to_users
  48. Command1_Click@
  49. Form1
  50. Address
  51. Command3_ClickR
  52. exit_Clicku
  53. about_Click
  54. About
  55. Userlistb
  56.     AboutForm
  57. Leftj
  58. Screen(
  59. Command5_Click
  60. Command2_Click!
  61. Show_Users_To_printerG
  62. Pritner
  63. Printer
  64. printerPrint_
  65. WinHelp#
  66. HelpFile
  67. wCommandH
  68. dwDataY
  69. GetWinFlags
  70. CRLFH
  71. ServerName
  72. GetFileServerName
  73. Caption
  74. NWGetConnectionInformation
  75. ConnNum
  76. ObjectName|
  77. ObjectTypeq
  78. objectIDR
  79.     loginTime
  80. DATE_AND_TIME
  81.     logindate
  82. NewName
  83. DisplayedUsers[
  84. TotalConnections
  85. CurrentConnection
  86. GetUserInfoforConn
  87. CurrentConnecton
  88. DisplayUsers
  89. NWGetFileServerName
  90. NWGetFileServerInformation
  91. MajorVersion
  92. MinorVersion
  93. Revision
  94. MaxxConnections
  95. MaxConnectionsUsed
  96. ConnectionsInUse
  97. NumVolumes
  98. SFTLevel]
  99. TTSLevelj
  100. MaxConnections
  101. Command1
  102. EnabledW
  103. CurrentlConnectionP
  104. GlobalServer
  105. Scanning
  106. NextButtonQ
  107. NextButton_Click
  108. NWGetConnectionNumber
  109. MyConnectionr
  110. DateTime
  111. FormatDateAndTime
  112.     Functions
  113. month5
  114. Srting
  115. TempString
  116. OldCurrentConnection
  117. TempDate
  118. login
  119. TmepDate
  120. minute
  121. GetUserNetworkAdd
  122. Network
  123. Constant
  124. should
  125. NWGetInetAddr
  126. inetaddr
  127. NWINET_ADDRw
  128. TempNetwork
  129. TempNode
  130. networkaddr
  131. netnodeaddr
  132. NWLongSwap
  133. NWWordSwap
  134. Temp1
  135. Temp4,
  136. Tempcl
  137.     TempAgain
  138. breaki
  139. NWGetDefaultConnectionID
  140. CurrentHandle
  141. PrintedUsers
  142. Form_Paint
  143. Form_GotFocus
  144. %CurrentConnectionOldCurrentConnection
  145. WinUser
  146. rescan_Click
  147. print_Click
  148. nextpage_Click
  149. about_Click
  150. The 1 parameter is for Modal loading of the form
  151. I know... I know ... The Constant.txt file should
  152. be loaded, but I wanted to make it would worko
  153. For those downloading the utility
  154. Command2_Click
  155. Command3_Click
  156. Command5_Click
  157. WinUser for Server:
  158.  - Scanning
  159. exit_Click
  160. Form_Activate
  161. Form_GotFocus
  162. Form_Load
  163. Initialize Some Variables 
  164. Positions the Main Screen 
  165. Get the Default Connection Handlea
  166. In Case the Machine was not rebooted or the0
  167. User is attached to multiple servers
  168. Sets the Title of the Form for displaying the server
  169. Get the Maximum Connection
  170. Most of the Parameters are not necessary
  171. But - oh well
  172. Must be reset for Multiple servers
  173. Get the Current Conneciton Number for the Server
  174. Must be reset for Multiple Servers
  175. Form_Paint
  176. GetUserInfoforConn
  177. This is the Netware SDk call to get the information that we format below
  178. Check to see if the Connection is in use
  179. Check to see if it is a "NLI" connection
  180. NOT-LOGGED-IN
  181. Begins the formatting of the Date and Time
  182.   -  -       :   am
  183. Start with the month
  184. Proceed with the day
  185. Then the Year
  186. Now the time - Start with hour
  187. Login > 12pm
  188. login at Midnightg
  189. logintime was before noon but after midnight
  190. Now the Minute
  191. Now lets remove excess "0"'s
  192. First the zero in front of the month
  193. Second teh zero in the hourt
  194. GetUserNetworkAdd
  195. This subroutine get the Network and Node
  196. Addresses of the connection from CurrentConnection
  197. It then formats themn correctly and passes
  198. them back through the last 2 paramaeters
  199. This is the Netware SDK call to get the addresses 
  200. I admit the using the NWLongSwap function would
  201. be best here, however there seems to be a glitch
  202. I can't nail down.  It seems to work fine by
  203. Using the VB function HEX as in teh Format function here
  204. This removes the "0"'s to make it more like thet
  205. Userlist for DOS program
  206. Same reason as above.r
  207. NextButton_Click
  208. nextpage_Click
  209. print_Click
  210. Call Show_Users_To_printer 
  211. rescan_Click
  212. WinUser for Server:
  213.  - Scanning
  214. Show_Users
  215. User Name
  216. Network
  217. Node Address
  218. Login Time
  219. -------------------------------------------------------------------
  220. Get the infomation about the connection - Replace "1" with Serverconne
  221. WinUser for Server:
  222.  - Scanning 
  223. WinUser for Server:
  224.  - Finished
  225. WinUser for Server:
  226.  - Waiting
  227. Show_Users_To_printer
  228. User Information for Server: 
  229. User Name
  230. Network
  231. Node Address
  232. Login Time
  233. -------------------------------------------------------------------
  234. Get the infomation about the connection - Replace "1" with Serverconn-
  235.